COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	
C00003 ENDMK
C⊗;

(LAP J* SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 2(E J))
(POP P 1)
(POPJ P 0)
NIL

(LAP J SUBR)
(PUSH P -2 P)
(CALL 1 (E G*))
(PUSH P -2 P)
(CALL 1 (E H*))
(CALL 2 (E F*))
(POP P -3 P)
(POP P -1 P)
(POPJ P 0)
NIL

(LAP G* SUBR)
(MOVE 1 -1 P)
(CALL  1(E G))
(MOVEM 1 -1 P)
(POPJ P)
NIL

(LAP H* SUBR)
(MOVE 1 -1 P)
(CALL 1 (E H))
(MOVEM 1 -1 P)
(POPJ P 0)
NIL

(LAP F* SUBR)
(MOVE 1 -2 P)
(MOVE 2 -1 P)
(POP P -1 P)
(CALL 2 (E F))
(MOVEM 1 -1 P)
(POPJ P 0)
NIL